home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / ss-3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  126 lines
  1. 1 REM FROM COMPUTE GAZETTE APRIL 84
  2. 3 SYS65517:A=PEEK(781):IFA=40THENPOKE53281,1
  3. 5 OPEN1,4:DIMW4(3):GOSUB1510:I=1:J=2
  4. 7 PRINT#1,CHR$(14)"             CALENDAR FOR";Y:PRINT#1:PRINT#1,CHR$(15)
  5. 10 PRINT#1,CHR$(14)SPC(8)"JANUARY"SPC(13)"FEBRUARY
  6. 12 [141]1009:[141]1000:[141]1012:C0[178]6:[141]1019:[141]1000:[141]1022
  7. 15 M0[178]I:M8[178]1:[141]292:[141]20:[137]35
  8. 20 D[178]1:[141]1050:W2[178]8[171]D1:W4(M8)[178]W2[170]1:[141]321
  9. 22 [139]D1[178]7[167][137]30
  10. 25 [129]D[178]2[164]W2:[141]1050:[141]331:[130]
  11. 30 [142]
  12. 35 [141]990:M0[178]J:M8[178]2:[141]292:[141]20
  13. 44 W3[178]1
  14. 45 M0[178]I:M8[178]1:[141]292:[141]200
  15. 46 [139]W4(2)[178]9[167][152]1,[199](15)[166]1);
  16. 50 [141]991:M0[178]J:M8[178]2:[141]292:[141]200
  17. 56 [139]W3[178]1[175]W4(1)[177]9[167][152]1,[199](15)[166]0);
  18. 57 [139]W3[178]1[175]W4(1)[179]10[167][152]1,[199](15)[166]1);
  19. 58 [139]W3[178]4[175]W4(2)[177]30[167][152]1,[199](15)[166]0);
  20. 65 W3[178]W3[170]1
  21. 70 [139]W3[179]C0[167][137]45
  22. 71 [152]1," "
  23. 72 [139]I[178]1[167][137]86
  24. 73 [139]I[178]3[167][137]96
  25. 74 [139]I[178]5[167][137]106
  26. 75 [139]I[178]7[167][137]116
  27. 76 [139]I[178]9[167][137]126
  28. 77 [139]I[178]11[167][137]199
  29. 86 [152]1,[199](14)[166]9)"MARCH"[166]16)"APRIL
  30. 88 I=3:J=4:GOTO12
  31. 96 PRINT#1,CHR$(14)SPC(10)"MAY"SPC(17)"JUNE
  32. 98 I[178]5:J[178]6:[137]12
  33. 106 [152]1,[199](14)[166]9)"JULY"[166]16)"AUGUST
  34. 108 I=7:J=8:GOTO12
  35. 116 PRINT#1,CHR$(14)SPC(7)"SEPTEMBER"SPC(13)"OCTOBER
  36. 118 I[178]9:J[178]10:[137]12
  37. 126 [152]1,[199](14)[166]7)"NOVEMBER"[166]13)"DECEMBER
  38. 128 I=11:J=12:GOTO12
  39. 199 PRINT#1,CHR$(15)SPC(1):CLOSE1:END
  40. 200 D4=W4(M8):D7=W4(M8)+6
  41. 205 D=D4:GOSUB1050
  42. 210 IFD1<>1THENPRINT"WHY D1=";D1
  43. 212 IFM8=1AND(D+1)<10THENGOSUB528
  44. 213 IFM8=1AND(D+1)>9THENGOSUB530
  45. 214 IFM8=2AND(D+1)<10THENGOSUB428
  46. 215 IFM8=2ANDD4>=30ANDD4<=E1THENGOSUB433:GOTO217
  47. 216 IFM8=2AND(D+1)>9THENGOSUB430
  48. 217 FORD=D4+1TOD7:GOSUB1050:GOSUB331:NEXT
  49. 220 W4(M8)=D7+1
  50. 225 RETURN
  51. 292 IFM0=1ORM0=3ORM0=5ORM0=7ORM0=8ORM0=10ORM0=12THENE1=31
  52. 293 IFM0=4ORM0=6ORM0=9ORM0=11THENE1=30
  53. 294 IFM0=2ANDY/4<>INT(Y/4)THENE1=28
  54. 295 IFM0=2ANDY/4=INT(Y/4)THENGOSUB1400
  55. 296 RETURN
  56. 321 IFD1=7THENPRINT#1,CHR$(15)SPC(36);D;:GOTO330
  57. 322 IFD1=6THENPRINT#1,CHR$(15)SPC(31);D;:GOTO330
  58. 323 IFD1=5THENPRINT#1,CHR$(15)SPC(26);D;:GOTO330
  59. 324 IFD1=4THENPRINT#1,CHR$(15)SPC(21);D;:GOTO330
  60. 325 IFD1=3THENPRINT#1,CHR$(15)SPC(16);D;:GOTO330
  61. 326 IFD1=2THENPRINT#1,CHR$(15)SPC(11);D;:GOTO330
  62. 327 IFD1=1THENPRINT#1,CHR$(15)SPC(6);D;:GOTO330
  63. 328 PRINT#1,CHR$(15)SPC(3);D;:GOTO330
  64. 329 PRINT#1,CHR$(15)SPC(2);D;
  65. 330 RETURN
  66. 331 IFD>E1THENPRINT#1,CHR$(15)SPC(5);:GOTO350
  67. 332 IFD1=1ANDD<=9THENPRINT#1,D;:GOTO350
  68. 333 IFD1=1ANDD>9THENPRINT#1,D;:GOTO350
  69. 335 IFD<=9THENPRINT#1,CHR$(15)SPC(2);D;:GOTO350
  70. 336 PRINT#1,CHR$(15)SPC(1);D;
  71. 350 RETURN
  72. 428 IFD>E1THENPRINT#1,CHR$(15)SPC(9);:GOTO435
  73. 429 GOTO328
  74. 430 IFD>E1THENPRINT#1,CHR$(15)SPC(9);:GOTO435
  75. 431 GOTO329
  76. 433 PRINT#1,CHR$(15)SPC(1);D;
  77. 435 RETURN
  78. 528 IFD>E1THENPRINT#1,CHR$(15)SPC(9);:GOTO535
  79. 529 GOTO532
  80. 530 IFD>E1THENPRINT#1,CHR$(15)SPC(9);:GOTO535
  81. 531 GOTO533
  82. 532 PRINT#1,CHR$(15)SPC(5);D;:GOTO535
  83. 533 PRINT#1,CHR$(15)SPC(4);D;
  84. 535 RETURN
  85. 990 PRINT#1,CHR$(15)SPC(3);:GOTO992
  86. 991 PRINT#1,CHR$(15)SPC(6);
  87. 992 RETURN
  88. 1000 PRINT#1,CHR$(15)SPC(7);
  89. 1001 RETURN
  90. 1009 PRINT#1,CHR$(15)SPC(3);
  91. 1010 PRINT#1,"  SUN  MON  TUE  WED  THU  FRI  SAT";
  92. 1011 RETURN
  93. 1012 PRINT#1,"  SUN  MON  TUE  WED  THU  FRI  SAT"
  94. 1013 RETURN
  95. 1019 PRINT#1,CHR$(15)SPC(3);
  96. 1020 PRINT#1,"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  97. 1021 RETURN
  98. 1022 PRINT#1," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  99. 1023 RETURN
  100. 1050 IFM0=1THENM0=13:Y=Y-1:GOTO1080
  101. 1060 IFM0=2THENM0=14:Y=Y-1
  102. 1080 M=M0-2
  103. 1100 D1=INT(2.6*M-0.2)+D+Y-1900+INT((Y-1900)/4)
  104. 1150 D1=D1+INT(19/4)-2*19
  105. 1200 D1=D1-INT(D1/7)*7+1
  106. 1210 IFM0=4ORM0=9THEND1=D1+1
  107. 1230 IFM0=13THENM0=1:Y=Y+1:GOTO1250
  108. 1240 IFM0=14THENM0=2:Y=Y+1:D1=D1+1
  109. 1244 IFD1=8THEND1=1
  110. 1245 IF(Y=2100ANDM0>3)OR(Y>2100)THEND1=D1-1:IFD1=0THEND1=7
  111. 1247 IF(Y=2200ANDM0>3)OR(Y>2200)THEND1=D1-1:IFD1=0THEND1=7
  112. 1249 IF(Y=2300ANDM0>3)OR(Y>2300)THEND1=D1-1:IFD1=0THEND1=7
  113. 1250 RETURN
  114. 1400 IF(Y/100=INT(Y/100))AND(Y/400<>INT(Y/400))THENE1=28:GOTO1410
  115. 1405 E1=29
  116. 1410 RETURN
  117. 1510 PRINT"[147]  THIS IS A PROGRAM":PRINT"      TO SHOW A
  118. 1520 [153]"   YEARLY CALENDAR.":[153]"   ON THE PRINTER."
  119. 1530 [153]" PLEASE TYPE IN THE":[153]"   YEAR THAT YOU":[153]"    WANT TO SEE.
  120. 1531 PRINT"  USE ALL 4 DIGITS.
  121. 1532 [133]"";Y
  122. 1570 [153]"   THANK YOU.  NOW TURN ON THE
  123. 1573 PRINT"PRINTER AND HIT A KEY.
  124. 1580 [161]J$:[139]J$[178]""[167]1580
  125. 1590 [142]
  126.